home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1994 August / August CD.bin / Shareware / Games / Core War / Battle Programs / contest88 / sieve.red < prev    next >
Text File  |  1989-07-30  |  811b  |  26 lines
  1. ;Sieve
  2. ;by Dirk Wolff-Klammer
  3. ;West Germany
  4. ;
  5. A             DAT                    0
  6. START         MOV   <  COUNT         DEST
  7.  
  8.               JMZ      LEND          COUNT
  9.               MOV   #  16            A
  10. LOOP          MOV   @  A          <  DEST
  11.               DJN      LOOP          A
  12.               SPL                 @  DEST
  13.               JMZ      START         A
  14. LEND          MOV   #  7             COUNT
  15.               JMZ      START         A
  16. COUNT         DAT                    7
  17.               DAT                    125
  18.               DAT                    250
  19.               DAT                    500
  20.               DAT                    1000
  21.               DAT                    2000
  22.               DAT                    4000
  23. DEST          DAT                    0
  24.               END      START
  25.  
  26.